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-- Loader .mesa 

-- Last Modified by Sandman, Aug 16, 1978 10:52 AM 

DIRECTORY 

AUoDefs: FROM "altodefs" USING [PageCount], 
BcdDefs: FROM "bcddefs" USING [ 

ControlLink, EPIndex, EPLimit, EXPHandle, EXPIndex, EXPNull, FTHandle, 

FTIndex, FTSelf, GFTIndex, IMPHandle, IMPIndex, MTHandle, MTIndex, MTNull. 

NameRecord, NameString, NullLink, PackedString, UnboundLink, VersionID, 

VersionStamp], 
ControlDefs: FROM "controldef s" USING [ 

Free, GFT, Global FrameHandle, NuHGlobalFrame], 
FrameDefs: FROM "framedefs" USING [EnterGlobal Frame, EnumerateGlobalFrames] , 
InlineDefs: FROM "inlinedefs" USING [BITAND. COPY], 
LoaderBcdUtilDefs: FROM "loaderbcdutildef s" USING [ 

BcdBase, EnumerateExportTable, EnumeratelmportTable, EnumerateModuleTable, 

ReleaseBcdSeg, SetUpBcd], 
LoaderDefs: FROM "loaderdefs" USING [FileSegmentHandle, LoaderErrorType], 
LoaderUtilityDefs: FROM "loaderutil itydef s" USING [ 

AllocateSingleModule, AssignControlModules , Binding, ControlModuleFrame, 

EnterCodeFileNames, Final izeUtil ities , FindCodeSegment , FindFramelndex, 

Initial izeUtil ities , InitlmportBinding, LookupFileTable, 

RequiredFrameSpace] , 
LoadStateDefs: FROM "loadstatedef s" USING [ 

BcdHasExports, BcdHasUnresol vedlmports , BcdSegFromLoadState, Configlndex, 

EnterGfi, Initial izeRelocation, InputLoadState, MapConf igToReal , 

ReleaseLoadState, ReleaseRelocation, Relocation, SetUnresolvedlmports, 

UpdateLoadState] , 
SDDefs: FROM "sddefs" USING [SD, sNew], 
SegmentDefs: FROM "segmentdef s" USING [ 

FileHandle, FileSegmentAddress , FileSegmentHandle, MoveFileSegment, NewFile, NewFileSegment, OldFil 
**eOnly, Read, Swapin, 

SwapUp, Unlock], 
StringDefs: FROM "stringdefs" USING [ 

AppendSubString, EqualSubStrings , EquivalentSubStrings, 

SubStringDescriptor], 
SystemDefs: FROM "systemdefs" USING [ 

Al locateHeapNode, Al locateHeapString , AllocateResidentSegment, 

FreeHeapNode, FreeHeapString, FreePages]; 

DEFINITIONS FROM SegmentDefs. BcdDefs, LoaderDefs; 

Loader: PROGRAM 

IMPORTS FrameDefs, LoaderBcdUtilDefs, LoaderUtilityDefs, LoadStateDefs. 

SegmentDefs, StringDefs, SystemDefs 
EXPORTS LoaderDefs - 

BEGIN 

SSD: TYPE « StringDefs . SubStringDescriptor; 
Relocation: TYPE « LoadStateDefs .Relocation; 
BcdBase: TYPE » LoaderBcdUtilDefs .BcdBase; 
Configlndex: TYPE = LoadStateDefs .Configlndex; 
Binding: TYPE = LoaderUtil ityDefs .Binding; 
GlobalFrameHandle: TYPE » ControlDefs. Global FrameHandle; 

LoaderError: PUBLIC SIGNAL [error: LoaderErrorType] ■ CODE; 
InvalidBcd: PUBLIC ERROR [bcdfile: FileHandle] = CODE; 
InvalidFile: PUBLIC ERROR [name: STRING] » CODE; 
VersionMismatch: PUBLIC SIGNAL [name: STRING] « CODE; 

NewNew: PROCEDURE [name: STRING] RETURNS [frame: GlobalFrameHandle] «- 
BEGIN 

RETURN[New[Load[name], TRUE, FALSE]]; 
END; 

Load: PUBLIC PROCEDURE [name: STRING] RETURNS [FileSegmentHandle] - 
BEGIN 
RETURN [LoadBcd[SegmentDefs .NewFile[name, Read, OldFileOnly] 

1 InvalidBcd »> ERROR Inval idFi le[name]]]; 
END; 

LoadBcd: PUBLIC PROCEDURE [bcdfile: FileHandle] RETURNS [bcdseg: FileSegmentHandle] - 
BEGIN OPEN SegmentDefs; 
pages: AltoDefs. PageCount; 
bed: BcdBase; 
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bcdseg *- NewFileSegment[bcdf ile, 1, 1, Read]; 
bed <- LoaderBcdUtilDefs.SetUpBcd[bcdseg]; 
pages <- bcd.nPages; 
IF pages > 1 THEN 

BEGIN 

Unlock[bcdseg]; 

MoveFileSegment[bcdseg, 1, pages]; 

bed <- LoaderBcdUtilDefs.SetUpBed[bcdseg]; 

END; 
BEGIN 

ENABLE UNWIND «> LoaderBcdUtilDef s . Re1easeBcdSeg[bcdseg] ; 

IF bcd.versionident if BcdDef s .VersionID OR bed. definitions THEN 
ERROn InvalidBed[bedfi1e]; 
END; -- OF OPEN 
Unloek[bcdseg]; 
END; 

New: PUBLIC PROCEDURE [bcdseg: FileSegmentHandle, frame! inks, alloe: BOOLEAN] 
RETURNS [frame: GlobalFrameHandle] - 
BEGIN OPEN SegmentDefs, SystemDefs; 
NullRel: Relocation - DESCRIPTOR[NIL, 0]; 
NullBind: Binding « DESCRIPTOR[NIL, 0]; 
loadee, system: BedBase <- NIL; 
LReloc: Relocation ^ NullRel; 
SReloc: Relocation ♦- NullRel; 
LBind: Binding <- NullBind; 
SBind: Binding ^ NullBind; 
frames: POINTER ^ NIL; 
nbcds, i: CARDINAL; 
systemseg: FileSegmentHandle ♦- NIL; 
single, unresolved, sysunres, initial: BOOLEAN; 
CleanUpNew: PROCEDURE - 

BEGIN 

Loads tateDefs.ReleaseLoadState[]; 

IF loadee # NIL THEN LoaderBcdUtilDef s.ReleaseBcdSeg[bcdseg]; 

IF LReloc # NullRel THEN SystemDefs. FreeHeapNode[BASE[LReloc]]; 

IF LBind # NullBind THEN SystemDefs . FreeHeapNode[BASE[LBind]]; 

LoaderUtil ityDef s. Final izeU til ities[]; 

END; 

BEGIN ENABLE UNWIND ■> 
BEGIN 

CleanUpNew[]: 
IF frames ii NIL THEN 

IF single THEN ControlDefs . Free[f names] ELSE FreePages[frames]; 
END; 
loadee ♦- LoaderBcdUtilDef s .SetUpBcd[bcdseg]; 
LoaderUtil ityDef s. Initial iz eU til ities[loadee]; 
LoaderUtil ityDef s . EnterCodeFileNames[ loadee]; 
LoaderUtil ityDef s.LookupFileTable[]; 
single <- loadee. nModules « 1; 

frames *- Al locateFrames[loadee, single, alloe, framelinks]; 
LReloc ♦- 

DESCRIPTOR[AllocateHeapNode[loadee.f irstdummy] , loadee.f irstdummy]; 
nbcds ♦- LoadStateDef s .InputLoadState[]; 

AssignFrameAddresses[f rames , loadee, LReloc, nbcds, single, alloc, framelinks]; 
LBind <- LoaderUtil ityDef s. InitImportBinding[l oadee. nDummies] ; 
unresolved <- loadee. nimports # 0; 
initial <- TRUE; 

IF ^-unresolved THEN RelocateOnly[loadee, LReloc]; 
FOR i DECREASING IN [0.. nbcds) DO 

IF unresolved AND LoadStateDef s .BcdHasExports[i] THEN 
BEGIN 

ENABLE UNWIND «> 

IF systemseg # NIL THEN LoaderBcdUti IDef s . ReleaseBcdSeg[systemseg]; 
systemseg ^ LoadStateDef s .BcdSegFromLoadState[i]; 
system ♦- LoaderBcdUtilDef s .SetUpBcd[systemseg]; 
BindImports[loadee. system, LBind]; 

unresolved ^ ProcessControlLinks[loadee, system, LReloc, LBind, i, initial]; 
initial ^ FALSE; 
END; 
IF LoadStateDef s.BcdHasUnresolvedImports[i] AND loadee. nExports # THEN 
BEGIN 

ENABLE UNWIND -> 
BEGIN 
IF systemseg # NIL THEN LoaderBcdUtilDef s. ReleaseBcdSeg[systemseg]; 
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IF SReloc ft NullRel THEN LoadStateDefs.Rel0aseRelocation[SRe1oc] ; 
IF SBind j^ NullBind THEN SystemDef s. FreeH0apNode[BASE[SBind]]; 
END; 
IF systemseg ■ NIL THEN 
BEGIN 

systemseg ^ LoadStateDef s .BcdS0gFromLoadState[i]; 
system ^ LoaderBcdUtnDefs.SetUpBcd[systemseg]; 
END; 
SReloc ^ LoadStat0Defs.Initia1izeRelocation[i]; 
SBind ^ LoaderUtil ityDefs.InitImportBinding[system.nDummies]; 
BindImports[system, loadee, SBind]; 
sysunres ♦- 

ProcessControlLinks[system, loadee, SReloc, SBind, nbcds, FALSE]; 
LoadStateDefs.S0tUnresolvedImports[i , sysunres]; 
LoadStateDefs.Re1easeRe1ocation[SReloc]; SReloc ♦- NullRel; 
SystemOefs.FreeHeapNode[BASE[SBind]]; SBind ^ NullBind; 
END; 
IF systemseg # NIL THEN 
BEGIN 

LoaderBcdUtilDefs. Re 1easeBcdSeg[ systemseg]; 
systemseg ^ NIL; 
END; 
ENDLOOP; 
LoadStateDefs.UpdateLoadState[ 

nbcds, bcdseg, unresolved, (loadee. nExports # OR single)]; 
frame <- IF single THEN LOOPHOLE[f rames] 

ELSE LoaderUtilityDefs.ControlModuleFrame[loadee, LReloc]; 
CleanUpNew[]; 
END; 
END; 

AllocateFrames: PROCEDURE [loadee: BcdBase, single, alloc, framelinks: BOOLEAN] 
RETURNS [POINTER] " 
BEGIN OPEN SegmentDefs; 
RETURN[IF single 

THEN LoaderUtilityDefs.AllocateSingleModule[loadee, framelinks] 
ELSE SystemDef s .Al locateResidentSegment[ 

LoaderUtil ityDefs.RequiredFrameSp ace [loadee, alloc, frame! inks]]]; 
END; 

AssignFrameAddresses: PROCEDURE [p: POINTER, loadee: BcdBase, Reloc: Relocation, 

config: Configlndex, single, alloc, allf ramel inks: BOOLEAN] ■ 

BEGIN 

frame: GlobalFrameHandle ^ p; 

ModuleSearch: PROCEDURE [mth: MTHandle, mti: MTIndex] RETURNS [BOOLEAN] - 
BEGIN 

seg: SegmentDefs . FileSegmentHandle; 
gfi: GFTIndex; 
i: CARDINAL; 
framelinks: BOOLEAN; 

framelinks ♦- al Iframel inks OR mth. links ■ frame OR -mth. code. 1 inkspace; 
IF -single AND alloc THEN 

BEGIN 

p <- NextMultipleOfFour[p+l]; 

(p-l)t <- LoaderUti 1 ityDef s. FindFrameIndex[mth , framelinks]; 

END; 
IF -single AND framelinks THEN p <- p + mth . frame, length; 
frame ^ NextMul tipleOf Four[p]; 
p ♦- frame + mth.f ramesize; 

gfi <- FrameDef s.EnterGlobalFrame[frame, mth.ngfi]; 
FOR i IN [0. .mth.ngfi) DO 

Reloc[mth.gf i+i] ^ gfi + i; 

LoadStateDefs.EnterGfi[mth.gf i+i, gf i+i. config]; 

ENDLOOP; 
seg <- LoaderUtil ityDefs.FindCodeSegment[loadee, mth, frame]; 
seg. class *- code; 
framet 4- [gfi: gfi, unused: 0, alloced: alloc OR single, shared: FALSE, 

copied: FALSE, started: FALSE, trapxfers: FALSE, codelinks: -framelinks, 

code: [out[mth. code. off set]] . codesegment: seg, global:]; 
f rame.code. swappedout <- TRUE; 
RETURN[FALSE]; 
END; 
FindSharedModules: PROCEDURE [f: GlobalFrameHandle] RETURNS [BOOLEAN] - 
BEGIN 
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Search: PROCEDURE [mth: MTHandle. mti: MTIndex] RETURNS [BOOLEAN] ■ 
BEGIN 

frame: GlobalFrameHandle <~ Contro1Defs.GFT[Reloc[mth.gfi]]. frame; 
IF f ■ frame THEN RETURN[FALSE]; 
IF f .codesegment ■ frame. codesegment THEN 

BEGIN f. shared ^ TRUE; frame. shared ^ TRUE; END; 
RETURN[FALSE]; 
END; 
IF f. shared THEN RETURN[FALSE]; 

[] ♦- LoaderBcdUtnDefs.EnumerateModuleTable[loadee, Search]; 
RETURN[FALSE]; 
END; 
gfi: GFTIndex; 
Re1oc[0] ♦■ 0; 

[] <- LoaderBcdUtnDefs.EnumerateModuleTable[loadee, ModuleSearch]; 
FOR gfi IN [1 . .LENGTH[Reloc]) DO 

LoadStateDefs.EnterGfi[gfi , Reloc[gfi], config]; 
ENDLOOP; 
LoaderUtil ityDef s .As si gnControl Modules [loadee, Reloc]; 
[] <- FrameDefs.EnumerateG1oba1Frames[FindSharedModules]; 
END; 

NextMultipleOfFour: PROCEDURE [n: POINTER] RETURNS [POINTER] - 
BEGIN 

RETURN[n + In! ineDef s .BITAND[-LOOPHOLE[n, INTEGER], 3B]]; 
END; 

Bindlmports: PROCEDURE [loadee, system: BcdBase, ImportBinding: Binding] » 
BEGIN 

ForEachlmport: PROCEDURE [ith; IMPHandle. iti: IMPIndex] RETURNS [BOOLEAN] ■ 
BEGIN 

i: CARDINAL; 
iname, sysname: SSD; 

issb. sysssb: POINTER TO BcdDef s.PackedString; 
module: MTIndex; export: EXPIndex; 

ExportMatch: PROCEDURE [eth: EXPHandle, eti: EXPIndex] RETURNS [BOOLEAN] - 
BEGIN OPEN StringDefs; 

sysname. offset <- eth. name; sysname. length «- sysssb. size[eth. name]; 
RETURN[eth.port = ith. port AND EqualSubStrings[0iname, Qsysname] AND 

EqualFiles[loadee, system, ith. file, eth. file]] 
END; 
ModuleMatch: PROCEDURE [mth: MTHandle, mti: MTIndex] RETURNS [BOOLEAN] » 
BEGIN OPEN StringDefs; 

sysname. offset <- mth. name; sysname. length <- sysssb. size[mth. name]; 
RETURN[EqualSubStrings[6iname, ©sysname] AND 

EqualFiles[loadee, system, ith. file, mth. file]] 
END; 

issb *- LOOPHOLE[loadee+loadee.ssOffset]; 

iname <- SSD[base: @issb . string, offset: ith. name, length: issb. size[ith .name]]; 
sysssb <- LOOPHOLE[system+system.ssOffset]; 
sysname. base ♦- 6sysssb. string; 

export ^ LoaderBcdUtilDefs.EnumerateExportTable[system, ExportMatch]. eti ; 
IF export # EXPNull THEN 
FOR i IN [0. .ith.ngfi) DO 

Imports inding[ ith. gf i -loadee. first dummy+i] ♦- 

[whichgfi: i, body: interf ace[export]]; 
ENDLOOP 
ELSE 
BEGIN 
module *- 

LoaderBcdUtilDef s. EnumerateModuleTable[ system, ModuleMatch]. mti ; 
FOR i IN [0. .ith.ngfi) DO 
IF module « MTNull 

THEN ImportBinding[ith. gf i-loadee.f irstdummy+i] <~ 

[whichgfi: i, body: notbound[]] 
ELSE ImportBinding[ith.gf i-loadee.f irstdummy+i] *- 
[whichgfi: i, body: module[module]]; 
ENDLOOP; 
END; 
RETURN[FALSE]; 
END; 

[] <- LoaderBcdUtilDef s .EnumGrateImportTable[loadee, ForEachlmport]; 
END; 
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EqualFiles: PROCEDURE [bcdl. tocdZ: BcdBase, filel, fileZ: FTIndex] RETURNS [BOOLEAN] 
BEGIN 

namel, name2: SSD; 

vl, v2: POINTER TO BcdDef s .VersionStamp; 
psl: BcdDefs.NameString <- LO0PH0LE[bcdl+bcdl . ssOff set] ; 
ps2: BcdDefs.NameString <- LO0PH0LE[bcd2+bcd2. ssOff set] ; 
namel. base ^ Qpsl. string; 
name2.base ^ 6ps2. string; 
IF filel ■ FTSelf THEN 

BEGIN 

name: NameRecord ■ 

(L00PH0LE[bcdl+bcdl.mtOffset. CARDINAL] + FIRST[MTIndex]) .name; 

namel. offset ♦■ name; 

namel. length ♦- psl.size[«am8]; 

vl ^ 0bcdl. version; 

END 
ELSE 

BEGIN 

file: FTHandle ^ LOOPHOL€,[bcdl+bcdl. f tOf f set, CARDINAL] + filel; 

namel. offset *- file. name; 

namel. length ♦- psl. size[file. name]; 

vl <r ©file. version; 

END; 
IF file2 « FTSelf THEN 

BEGIN 

name: NameRecord ■ 

{L00PH0LE[bcd2+bcd2.mtOffset, CARDINAL] + FIRST[MTIndex]) .name; 

name2.offset «- name; 

name2. length ♦- ps2.size[name]; 

v2 ^ 0bcd2. version; 

END 
ELSE 

BEGIN 

file: FTHandle ^ L00PH0L£[bcd2+bcd2.f tOff set, CARDINAL] + file2; 

name2. offset *- file. name; 

name2. length <- ps2.size[f ile.name]; 

v2 <r ©file, version ; 

END; 
IF StringDefs.EquivalentSubStrings[0namel, 6name2] THEN 

IF EqVerCvl, v2] THEN RETURN[TRUE] 

ELSE 

BEGIN OPEN SystemDefs; 

filename: STRING <- AllocateHeapString[namel . length]; 
StringDef s. AppendSubString[f ilename, ©namel]; 

SIGNAL VersionMismatch[filename I UNWIND «> FreeHeapString[f ilename]]; 
FreeHeapString[f ilename]; 
END; 
RETURN[FALSE]; 
END; 

EqVer: PROCEDURE [vl. v2: POINTER TO BcdDef s . VersionStamp] RETURNS [BOOLEAN] - 
BEGIN 

RETURN [vl. zapped OR v2. zapped OR vlt » v2t] 
END; 

ProcessControlLinks: PROCEDURE [loadee, system: BcdBase, Reloc: Relocation, 
ImportBinding: Binding, config: Configlndex, initial: BOOLEAN] 
RETURNS [BOOLEAN]- 

BEGIN 

smtb: CARDINAL « LOOPHOLE[system+system.mtOff set]; 

setb: CARDINAL « LOOPHOLE[system+sys tern. expOff set] ; 

unresolved: BOOLEAN ^ FALSE; 

MungeControlLink: PROCEDURE [link: ControlLink, addr: POINTER TO ControlLink] 
RETURNS [changedLink: BOOLEAN] - 
BEGIN 

gfi: GFTIndex; 
ep: EPIndex; 
SELECT link. tag FROM 
procedure »> 

IF addrt - UnboundLink THEN 
BEGIN 
IF link. gfi >«• loadee. firstdummy THEN 

WITH ImportBinding[link.gri-loadee. firstdummy] SELECT FROM 

module -> SIGNAL LoaderError[Impossible] ; ~- Shouldn't Happen 
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interface ■> 

BEGIN OPEN e: setb+eti; 
SELECT e.port FROM 
interface ■> 
BEGIN 

ep ♦- link.ep+(whichgf i*EPLimit) ; 

gfi ^ LoadStateDefs.MapConf igToReal[e.links[ep].gfi , config]; 
IF gfi ■ THEN unresolved ^ TRUE 
ELSE 
BEGIN 

changedLink ^ TRUE; 
SELECT e.links[ep],tag FROM 
procedure ■> 
BEGIN 

addr.gfi ^ gfi; 
addr.ep <- e. 1 inks[ep].ep; 
addr.tag <- procedure; 
END; 
frame »> addrt 4- 

L00PH0LE[Contro1Defs.GFT[gfi]. frame]; 
ENDCASE; 
END; 
END; 
module ■> SIGNAL LoaderError[Impossib1e]; 
ENDCASE; 
END; 
notbound ■> unresolved <- TRUE; 
ENDCASE 
ELSE 
BEGIN 

addrt <- l ink; 

addr.gfi ^ Re1oc[1 ink.gf i]; 
changedLink <- TRUE; 
END; 
END; 
frame •> 

IF addrt - NullLink THEN 
BEGIN 

IF link. gfi >■ loadee.f irstdummy THEN 
BEGIN 
WITH ImportBinding[link.gfi-loadee.f irstdummy] SELECT FROM 

module »> gfi ^ LoadStateDef s .MapConf igToReal [(smtb+mti) .gf i , config]; 
interface ■> 

BEGIN OPEN e: setb+eti; 
SELECT e.port FROM 

interface «> ep *- 1 ink.ep+{whichgf i*EPLimit) ; 
module «> ep <- 0; 
ENDCASE; 
gfi «- LoadStateDef s.MapConf igToReal[e.l inks[ep],gf i . config]; 
END; 
notbound "> gfi <- 0; 
ENDCASE; 
IF gfi « THEN unresolved <- TRUE 
ELSE 
BEGIN 

changedLink *- TRUE; 

addrt 4- LOOPHOLE[ControlDefs.GFT[gfi] .frame]; 
END; 
END 
ELSE 
BEGIN 

changedLink <r TRUE; 

addrt <- LOOPHOLE[ControlDefs.GFT[Reloc[l ink.gf i]]. frame]; 
END; 
END; 
ENDCASE; 
END; 

ModuleSearch: PROCEDURE [mth: MTHandle. mti: MTIndex] RETURNS [BOOLEAN] - 
BEGIN 

i: CARDINAL; 

frame: GlobalFrameHandle <- ControlDefs.GFT[Reloc[mth .gfi]] .frame; 
codesegment: SegmentDef s . Fi leSegment Handle; 
linkbase: POINTER TO ControlLink; 
changed: BOOLEAN; 
IF frame - ControlDefs .NullGlobalFrame THEN RETURN[FALSE]; 
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codesegment <- frame. codesegment; 
IF frame. codelinks THEN 
BEGIN OPEN SegmentDefs; 
Swap In[ codesegment]; 

linkbase <- FileSegmentAddress[codesegment] + mth. code. offset; 
END 
ELSE linkbase ^ LOOPHOLECf rame]; 
linkbase *- linkbase - mth. frame. length; 
IF initial THEN 
BEGIN 
InlineDefs.COPY[from: ©mth.f rame.fr ag[0], 

to: linkbase, nwords: mth.f rame. length]; 
FOR i IN [0. .mth. frame. length) DO 
SELECT (linkbase+i)t.tag FROM 

procedure »> (1 inkbase+i)t ♦- UnboundLink; 
frame ■> (linkbase+i)t ♦- NullLink; 
ENDCASE; 
ENDLOOP; 
END; 
changed ^ FALSE; 
FOR i IN [0.. mth. frame. length) DO 

changed <- MungeControlLink[mth.f rame.f rag[i], linkbase+i] OR changed; 
ENDLOOP; 
IF frame. codelinks THEN 
BEGIN 

SegmentDefs.Unlock[codes8gment]; 
IF changed OR initial THEN 
BEGIN 

codesegment. write *- TRUE; 
SegmentDefs.SwapUp [codesegment]; 
codesegment. write <- FALSE; 
END; 
END; 
RETURN[FALSE]; 
END; 

[] ^ LoaderBcdUtilDef s.EnumerateModuleTable[loadee, ModuleSearch]; 

RETURN[unresolved]; 

END; 

RelocateOnly: PROCEDURE [loadee: BcdBase, Reloc: Relocation]- 
BEGIN 

ModuleSearch: PROCEDURE [mth: MTHandle. mti: MTIndex] RETURNS [BOOLEAN] ■ 
BEGIN 

i: CARDINAL; 

frame: GlobalFrameHandle ^ ControlDefs.GFT[Reloc[mth.gfi]] .frame; 
codesegment: SegmentDefs .FileSegmentHandle <- frame. codesegment; 
codelinks: BOOLEAN <- frame, codel inks ; 
linkbase: POINTER TO ControlLink; 
IF mth. frame. length - THEN RETURN[FALSE]; 
IF codelinks THEN 

BEGIN OPEN SegmentDefs; 
SwapIn[code segment]; 

linkbase <- FileSegmentAddress[codesegment] + mth.code.of fset; 
END 
ELSE linkbase ^ LOOPH0LE[f rame]; 
linkbase <- linkbase - mth.f rame. length; 
FOR i IN [0. .mth. frame. length) DO 
OPEN link: mth.f rame. frag[i] ; 
SELECT link. tag FROM 
procedure -> 
BEGIN 

(1 inkbase+i)t <- link; 
(1 inkbase+i) .gf i ^ Reloc[l ink.gf i]; 
END; 
frame ■> 

(1 inkbase+i )t <- LOOPHOLE[ControlDef s .GFT[Reloc[l ink.gf i]]. frame]; 
ENDCASE; 
ENDLOOP; 
IF codelinks THEN 
BEGIN 

SegmentDefs .Unlock [code segment]; 
codesegment .write ^ TRUE; 
SegmentDefs .SwapUp [code segment]; 
codesegment. write ^ FALSE; 
END; 
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RETURN[FALSE]; 
END; 

[] ♦- LoaderBcdUtnDefs.EnumerateMoclu1eTable[1oadee, ModuleSearch]; 

RETURN 

END; 

SDDefs.SD[SDDefs.sNew] ♦- NewNew; 

END... 



